home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / SpaceEscape •••• / SpaceEscape ееее / card_20367.txt < prev    next >
Text File  |  1990-10-02  |  4KB  |  145 lines
  1. -- card: 20367 from stack: in
  2. -- bmap block id: 23306
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: booze
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put "This is a half-empty bottle of booze.  This gives you some idea"& " as to the reason why there is no one guarding the bunker at the"& " moment." into field "info"
  9.   pass opencard
  10. end opencard
  11.  
  12.  
  13.  
  14. -- part 2 (button)
  15. -- low flags: 00
  16. -- high flags: A003
  17. -- rect: left=161 top=302 right=323 bottom=192
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: OK
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   global filter
  29.   if filter is "yes" then
  30.     beep
  31.     exit mouseup
  32.   end if
  33.   global donteat
  34.   get bkgnd field "do what"
  35.   if the number of words in it > 1 then
  36.     beep 2
  37.     oneword
  38.     exit mouseup
  39.   end if
  40.   if it contains "smell" or it contains "sniff" then
  41.     put "Yep, smells like booze all right." into field "info"
  42.     exit mouseup
  43.   end if
  44.   if it contains "examine" or it contains "look" then
  45.     send "opencard" to this card
  46.     exit mouseUp
  47.   end if
  48.   if it contains "eat" or it contains "consume" or it contains "drink" then
  49.     global booz
  50.     if booz is "empty" then
  51.       put "The bottle is empty." into field "info"
  52.       exit mouseup
  53.     end if
  54.     put "You take a long swig of the booze.  Before you know it, "& "you've drunk the whole bottle." into field "info"
  55.     global booz
  56.     put "empty" into booz
  57.     exit mouseup
  58.   end if
  59.   if it is "" then
  60.     put "Speak up.  I can't hear you." into field "info"
  61.     exit mouseup
  62.   end if
  63.   global boozhide
  64.   if it contains "get" or it contains "take" then
  65.     global inventory
  66.     if inventory contains "booze" then
  67.       put "You already have it." into field "info"
  68.       exit mouseup
  69.     else
  70.       put "You pick the bottle up off the ground.≈∏" into field "info"
  71.       global inventory
  72.       put "Booze"& return after last char of inventory
  73.       global filter
  74.       put "yes" into filter
  75.       global action
  76.       put "get" into action
  77.       exit mouseup
  78.     end if
  79.   end if
  80.   if it contains "drop" then
  81.     global inventory
  82.     if inventory contains "Booze" then
  83.       put "You should save the booze bottle in case it should come"& in handy later on." into field "info"
  84.       exit mouseup
  85.     else put "You can't drop what you don't have." into field "info"
  86.     exit mouseup
  87.   end if
  88.   if it contains "give" or it contains "offer"then
  89.   ask "To whom would you like to give the bottle?"
  90.   if it contains "Drool" or it contains "Guard"or it contains "man" then
  91.     global booz
  92.     if booz is "empty" then
  93.       put "The Drool takes one look at the empty bottle and loses"& " interest. "into field "info"
  94.       exit mouseup
  95.     end if
  96.     global boozer
  97.     put "yes" into boozer
  98.     put "The Drool stops his exercising, takes the bottle, and, "& "with a mischievous little giggle, walks away.≈∏" into field "info"
  99.     global inventory
  100.     get offset ("Booze",inventory)
  101.     put "" into char it  to 4 +it  of inventory
  102.     global droolhide
  103.     put "yes" into droolhide
  104.     global action
  105.     put "yah" into action
  106.     global filter
  107.     put "yes" into filter
  108.     exit mouseup
  109.   else
  110.     put "The Drool is not interested in the "&it&"." into field "Info"
  111.     exit mouseup
  112.   end if
  113. end if
  114. idunno
  115. end mouseUp
  116.  
  117. on cont
  118.   global filter
  119.   if filter is "yes" then
  120.     global action
  121.     if action is "get" then
  122.       global filter
  123.       put "" into filter
  124.       global boozhide
  125.       put "yes" into boozhide
  126.       go to card "bunker"
  127.     end if
  128.     if action is "yah" then
  129.       global filter
  130.       put "" into filter
  131.       go to card "rec room2"
  132.     end if
  133.   end if
  134. end cont
  135.  
  136.  
  137.  
  138.  
  139. -- part contents for background part 2
  140. ----- text -----
  141. What would you like to do with the booze?
  142.  
  143. -- part contents for background part 7
  144. ----- text -----
  145. Booze